home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D09.D64 / gf_screen loader (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  502 b   |  17 lines
  1. 1 REM INITIALIZE "GF/SCREEN LOADER"
  2. 2 DIMSF$(23):CA$="[156]":SU=15:BO=4:FORZ=1TO39:Z$=Z$+" ":NEXT:PRINT"[147]"
  3. 90 :
  4. 95 :REM CALL "GF/SCREEN LOADER"
  5. 100 FI$="CR/DOODLE":GOSUB10000
  6. 110 GETGT$:IFGT$=""THEN110
  7. 120 GOSUB11000:GOTO110
  8. 9990 :
  9. 9995 :REM READ/LOAD FI$ (SCREEN FILE)
  10. 10000 OPEN8,8,8,"0:"+FI$+",S,R":FORSF=1TO23:INPUT#8,S1$:INPUT#8,S2$
  11. 10005 SF$(SF)=S1$+S2$:NEXT:CLOSE8
  12. 10010 :
  13. 10995 REM PRINT SCREEN FILE
  14. 11000 POKE53281,SU:POKE53280,BO:PRINT"";:ZZ=0:FORZ=1TO24:PRINTCA$Z$:ZZ=ZZ+40
  15. 11005 POKE1023+ZZ,160:POKE55295+ZZ,BO:NEXT:PRINTCA$Z$"[145]":POKE2023,160
  16. 11010 POKE56295,BO:PRINT"";:FORSF=1TO23:PRINT""SF$(SF):NEXT:RETURN
  17.